﻿'Option Strict Off
Option Explicit On
Imports System

Imports System.Data.Common

Namespace BudgetDetailTableAdapters
    Partial Public Class BudgetDetailsTableAdapter
        Inherits System.ComponentModel.Component

        Public Function inserttext(ByVal PlanYear As String, ByVal BaseYear As String, ByVal Version As String, ByVal AssetNo As String, ByVal AssetDescription As String, _
                                        ByVal AssetRowNo As String, ByVal OldAssetNo As String, ByVal Element1 As String, ByVal Element2 As String, ByVal Element3 As String, ByVal Element4 As String, _
                                        ByVal Element5 As String, ByVal Element6 As String, ByVal Element7 As String, ByVal Element8 As String, ByVal Element9 As String, ByVal Amount As String, _
                                        ByVal NewQuantity As String, ByVal ReplaceQuantity As String, ByVal PricePerUnit As String, ByVal Note As String, ByVal Identification As String, ByVal FormId As String, _
                                        ByVal FndPrgGenFlag As String, ByVal FundedProgram As String, ByVal FunctionalArea As String, ByVal Actual1 As String, ByVal Actual2 As String, ByVal Actual3 As String, _
                                        ByVal Actual4 As String, ByVal Actual5 As String, ByVal Actual6 As String, ByVal Actual7 As String, ByVal Actual8 As String, ByVal Actual9 As String, _
                                        ByVal Actual10 As String, ByVal Actual11 As String, ByVal Actual12 As String, ByVal Actual13 As String, ByVal Actual14 As String, ByVal Actual15 As String, _
                                        ByVal Actual16 As String, ByVal CreatedDate As String, ByVal UpdatedDate As String, ByVal CreatedBy As String, ByVal UpdatedBy As String, ByVal ActivityType_PlanYear As String, _
                                        ByVal ActivityType_ActivityTypeCode As String, ByVal Activity_ActivityCode As String, ByVal Activity_PlanYear As String, ByVal Product_ProductCode As String, _
                                        ByVal Product_PlanYear As String, ByVal FundCenter_FundCenterCode As String, ByVal FundCenter_PlanYear As String, ByVal Project_ProjectCode As String, ByVal Project_PlanYear As String, _
                                        ByVal Cmmt_CmmtCode As String, ByVal Cmmt_PlanYear As String, ByVal CmmtDetail_Id As String, ByVal Fund_FundCode As String, ByVal Fund_PlanYear As String, _
                                        ByVal Attachments_amount As String, ByVal Project_FundCenterCode As String) As String
            Dim OriginalCommandText As String
            OriginalCommandText = Me.CommandCollection(1).CommandText
            Dim replacetext As String
            replacetext = OriginalCommandText
            replacetext = replacetext.Replace("@PlanYear", PlanYear)
            replacetext = replacetext.Replace("@BaseYear", BaseYear)
            replacetext = replacetext.Replace("@Version", Version)
            replacetext = replacetext.Replace("@AssetNo", AssetNo)
            replacetext = replacetext.Replace("@AssetDescription", AssetDescription)
            replacetext = replacetext.Replace("@AssetRowNo", AssetRowNo)
            replacetext = replacetext.Replace("@OldAssetNo", OldAssetNo)
            replacetext = replacetext.Replace("@Element1", Element1)
            replacetext = replacetext.Replace("@Element2", Element2)
            replacetext = replacetext.Replace("@Element3", Element3)
            replacetext = replacetext.Replace("@Element4", Element4)
            replacetext = replacetext.Replace("@Element5", Element5)
            replacetext = replacetext.Replace("@Element6", Element6)
            replacetext = replacetext.Replace("@Element7", Element7)
            replacetext = replacetext.Replace("@Element8", Element8)
            replacetext = replacetext.Replace("@Element9", Element9)
            replacetext = replacetext.Replace("@Amount", Amount)
            replacetext = replacetext.Replace("@NewQuantity", NewQuantity)
            replacetext = replacetext.Replace("@ReplaceQuantity", ReplaceQuantity)
            replacetext = replacetext.Replace("@PricePerUnit", PricePerUnit)
            replacetext = replacetext.Replace("@Note", Note)
            replacetext = replacetext.Replace("@Identification", Identification)
            replacetext = replacetext.Replace("@FormId", FormId)
            replacetext = replacetext.Replace("@FndPrgGenFlag", FndPrgGenFlag)
            replacetext = replacetext.Replace("@FundedProgram", FundedProgram)
            replacetext = replacetext.Replace("@FunctionalArea", FunctionalArea)
            replacetext = replacetext.Replace("@Actual1", Actual1)
            replacetext = replacetext.Replace("@Actual2", Actual2)
            replacetext = replacetext.Replace("@Actual3", Actual3)
            replacetext = replacetext.Replace("@Actual4", Actual4)
            replacetext = replacetext.Replace("@Actual5", Actual5)
            replacetext = replacetext.Replace("@Actual6", Actual6)
            replacetext = replacetext.Replace("@Actual7", Actual7)
            replacetext = replacetext.Replace("@Actual8", Actual8)
            replacetext = replacetext.Replace("@Actual9", Actual9)
            replacetext = replacetext.Replace("@Actual10", Actual10)
            replacetext = replacetext.Replace("@Actual11", Actual11)
            replacetext = replacetext.Replace("@Actual12", Actual12)
            replacetext = replacetext.Replace("@Actual13", Actual13)
            replacetext = replacetext.Replace("@Actual14", Actual14)
            replacetext = replacetext.Replace("@Actual15", Actual15)
            replacetext = replacetext.Replace("@Actual16", Actual16)
            replacetext = replacetext.Replace("@Actual16", Actual16)
            replacetext = replacetext.Replace("@CreatedDate", CreatedDate)
            replacetext = replacetext.Replace("@UpdatedDate", UpdatedDate)
            replacetext = replacetext.Replace("@CreatedBy", CreatedBy)
            replacetext = replacetext.Replace("@UpdatedBy", UpdatedBy)
            replacetext = replacetext.Replace("@ActivityType_PlanYear", ActivityType_PlanYear)
            replacetext = replacetext.Replace("@ActivityType_ActivityTypeCode", ActivityType_ActivityTypeCode)
            replacetext = replacetext.Replace("@Activity_ActivityCode", Activity_ActivityCode)
            replacetext = replacetext.Replace("@Activity_PlanYear", Activity_PlanYear)
            replacetext = replacetext.Replace("@Product_ProductCode", Product_ProductCode)
            replacetext = replacetext.Replace("@Product_PlanYear", Product_PlanYear)
            replacetext = replacetext.Replace("@FundCenter_FundCenterCode", FundCenter_FundCenterCode)
            replacetext = replacetext.Replace("@FundCenter_PlanYear", FundCenter_PlanYear)
            replacetext = replacetext.Replace("@Project_ProjectCode", Project_ProjectCode)
            replacetext = replacetext.Replace("@Project_PlanYear", Project_PlanYear)
            replacetext = replacetext.Replace("@Cmmt_CmmtCode", Cmmt_CmmtCode)
            replacetext = replacetext.Replace("@Cmmt_PlanYear", Cmmt_PlanYear)
            replacetext = replacetext.Replace("@CmmtDetail_Id", CmmtDetail_Id)
            replacetext = replacetext.Replace("@Fund_FundCode", Fund_FundCode)
            replacetext = replacetext.Replace("@Fund_PlanYear", Fund_PlanYear)
            replacetext = replacetext.Replace("@Attachments_amount", Attachments_amount)
            replacetext = replacetext.Replace("@Project_FundCenterCode", Project_FundCenterCode)

            Return replacetext
        End Function

        Public Function updatetravaelusualtext(ByVal Element1 As String, ByVal Element2 As String, ByVal Element3 As String, ByVal Element4 As String, ByVal Element5 As String, ByVal Element6 As String, ByVal Element7 As String, ByVal Amount As String, ByVal Note As String, ByVal UpdatedDate As String, ByVal UpdatedBy As String, ByVal FundCenter_FundCenterCode As String, ByVal Activity_ActivityCode As String, ByVal Cmmt_CmmtCode As String, ByVal CmmtDetail_Id As String, ByVal Original_Id As String) As String
            Dim OriginalCommandText As String
            OriginalCommandText = Me.CommandCollection(12).CommandText
            Dim replacetext As String
            replacetext = OriginalCommandText
            replacetext = replacetext.Replace("@Element1", Element1)
            replacetext = replacetext.Replace("@Element2", Element2)
            replacetext = replacetext.Replace("@Element3", Element3)
            replacetext = replacetext.Replace("@Element4", Element4)
            replacetext = replacetext.Replace("@Element5", Element5)
            replacetext = replacetext.Replace("@Element6", Element6)
            replacetext = replacetext.Replace("@Element7", Element7)
            replacetext = replacetext.Replace("@Amount", Amount)
            replacetext = replacetext.Replace("@Note", Note)
            replacetext = replacetext.Replace("@UpdatedDate", UpdatedDate)
            replacetext = replacetext.Replace("@UpdatedBy", UpdatedBy)
            replacetext = replacetext.Replace("@FundCenter_FundCenterCode", FundCenter_FundCenterCode)
            replacetext = replacetext.Replace("@Activity_ActivityCode", Activity_ActivityCode)
            replacetext = replacetext.Replace("@Cmmt_CmmtCode", Cmmt_CmmtCode)
            replacetext = replacetext.Replace("@CmmtDetail_Id", CmmtDetail_Id)
            replacetext = replacetext.Replace("@Original_Id", Original_Id)

            Return replacetext
        End Function

        Public Function updatetravaelprjtext(ByVal Element1 As String, ByVal Element2 As String, ByVal Element3 As String, ByVal Element4 As String, ByVal Element5 As String, ByVal Element6 As String, ByVal Element7 As String, ByVal Amount As String, ByVal Note As String, ByVal UpdatedDate As String, ByVal UpdatedBy As String, ByVal FundCenter_FundCenterCode As String, ByVal Project_ProjectCode As String, ByVal Project_FundCenterCode As String, ByVal Cmmt_CmmtCode As String, ByVal CmmtDetail_Id As String, ByVal Original_Id As String) As String
            Dim OriginalCommandText As String
            OriginalCommandText = Me.CommandCollection(12).CommandText
            Dim replacetext As String
            replacetext = OriginalCommandText
            replacetext = replacetext.Replace("@Element1", Element1)
            replacetext = replacetext.Replace("@Element2", Element2)
            replacetext = replacetext.Replace("@Element3", Element3)
            replacetext = replacetext.Replace("@Element4", Element4)
            replacetext = replacetext.Replace("@Element5", Element5)
            replacetext = replacetext.Replace("@Element6", Element6)
            replacetext = replacetext.Replace("@Element7", Element7)
            replacetext = replacetext.Replace("@Amount", Amount)
            replacetext = replacetext.Replace("@Note", Note)
            replacetext = replacetext.Replace("@UpdatedDate", UpdatedDate)
            replacetext = replacetext.Replace("@UpdatedBy", UpdatedBy)
            replacetext = replacetext.Replace("@FundCenter_FundCenterCode", FundCenter_FundCenterCode)
            replacetext = replacetext.Replace("@Project_ProjectCode", Project_ProjectCode)
            replacetext = replacetext.Replace("@Project_FundCenterCode", Project_FundCenterCode)
            replacetext = replacetext.Replace("@Cmmt_CmmtCode", Cmmt_CmmtCode)
            replacetext = replacetext.Replace("@CmmtDetail_Id", CmmtDetail_Id)
            replacetext = replacetext.Replace("@Original_Id", Original_Id)

            Return replacetext
        End Function
    End Class

End Namespace

Namespace fundCenterTableAdapters
    Partial Public Class BudgetDetailsTableAdapter
        Inherits System.ComponentModel.Component
        Public Function copytext(ByVal key_id As String) As String
            Dim OriginalCommandText As String
            OriginalCommandText = Me.CommandCollection(1).CommandText
            Dim replacetext As String
            replacetext = OriginalCommandText

            replacetext = replacetext.Replace("@key_id", key_id)

            Return replacetext
        End Function

        Public Function deletetext(ByVal key_id As String) As String
            Dim OriginalCommandText As String
            OriginalCommandText = Me.CommandCollection(2).CommandText
            Dim replacetext As String
            replacetext = OriginalCommandText

            replacetext = replacetext.Replace("@key_id", key_id)

            Return replacetext
        End Function
    End Class

    Partial Public Class AttachmentsTableAdapter
        Inherits System.ComponentModel.Component
        Public Function deletetext(ByVal BudgetDetail_id As String) As String
            Dim OriginalCommandText As String
            OriginalCommandText = Me.CommandCollection(1).CommandText
            Dim replacetext As String
            replacetext = OriginalCommandText

            replacetext = replacetext.Replace("@BudgetDetail_id", BudgetDetail_id)

            Return replacetext
        End Function
    End Class

End Namespace




